(define (list-len list)
  (cond
   ((null? list) 0)
   ((null? (cdr list)) 1)
   ((+ 1 (list-len (cdr list))))))

(define (qsort list)
  (list-len list) )